(when (>= (javaVersion T) (1 7) )
  (de methodsAsMethodHandles (Methods Modifier Exclude?)
    (thread Methods
      (members Modifier Exclude?)
      (map+ mapcar
        (quote (Member)
          (catch+ '("IllegalAccessException")
            (cons
              (thread Member
                (java "getName")
                java)
              (java (lookup)
                "unreflect" Member) ) ) ) )
      (map+ filter
        (quote (Value)
          (and (thread Value not not)
            (thread Value car not not) ) ) ) ) ) )